home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / three reasons (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  354b  |  10 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,23:rem envelope and waveform voice 1
  4. 25 f1=100:f2=230:rem frequencies to be poked into voices 1 and 3
  5. 30 f2=4:rem f2 controls lower pitch limit
  6. 40 forz=1to3:poke54287,f2:rem z = no. of cycles
  7. 50 forf1=1to200:rem f1 is upper pitch limit
  8. 60 poke54273,f1:f2=f2+.01:nextf1:nextz:poke54278,15
  9. 70 list10-60
  10.